rviolence1 <- lm(violence ~ days_scaled * treatment + which, stan_races_violence, weights = weight)

rviolence2 <- lm(violence ~ days_scaled * treatment * which, stan_races_violence, weights = weight)

rnorms1 <- lm(norms ~ days_scaled * treatment + which, stan_races_norms, weights = weight)

rnorms2 <- lm(norms ~ days_scaled * treatment * which, stan_races_norms, weights = weight)

raffpol1 <- lm(affpol ~ days_scaled * treatment + which, stan_races_affpol, weights = weight)

raffpol2 <- lm(affpol ~ days_scaled * treatment * which, stan_races_affpol, weights = weight)

stargazer::stargazer(rviolence1, rviolence2, rnorms1, rnorms2, raffpol1, raffpol2,
                     type = 'latex',
                     title="Results by Number of Races",
                     omit.stat = c("ser", "adj.rsq", 'rsq'), 
                     font.size = "scriptsize", column.sep.width = "6pt",
                     df = F, no.space = T,
                     dep.var.labels = c(
                       "Violence", 
                       "Norms",
                       "Aff Pol"),
                     notes = "Variable `which` represents the number of races. The reference group in 1 race.")

